VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "PropertyUpdate"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

    Private m_strFieldName As String
    Private m_vValue As Variant
    
Public Property Let FieldName(vData As String)

    m_strFieldName = vData

End Property

Public Property Get FieldName() As String

    FieldName = m_strFieldName

End Property

Public Property Let Value(vData As Variant)

    m_vValue = vData

End Property

Public Property Get Value() As Variant

    Value = m_vValue

End Property
